PC Gamer (Italian) 48/PC Gamer IT CD 48 2-2.iso/utility/nmail28u/DISK1/_SETUP.1/NETMAIL.EXE/0/RCDATA/TVADDRESSBOOK/TVADDRESSBOOK.txt

Text File | 1999-09-10 | 6.4 KB | 338 lines

object VAddressBook: TVAddressBook
  Left = 38
  Top = 31
  BorderStyle = bsSingle
  Caption = 'Address Book'
  ClientHeight = 327
  ClientWidth = 324
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  FormStyle = fsMDIChild
  Position = poDefaultPosOnly
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBText1: TDBText
    Left = 88
    Top = 144
    Width = 140
    Height = 17
    DataField = 'FirstName'
    DataSource = DSadress
  end
  object DBText2: TDBText
    Left = 88
    Top = 120
    Width = 140
    Height = 17
    DataField = 'LastName'
    DataSource = DSadress
  end
  object DBText3: TDBText
    Left = 88
    Top = 168
    Width = 140
    Height = 17
    DataField = 'Organization'
    DataSource = DSadress
  end
  object DBText4: TDBText
    Left = 88
    Top = 192
    Width = 140
    Height = 17
    DataField = 'HomeEMail'
    DataSource = DSadress
  end
  object DBText5: TDBText
    Left = 88
    Top = 216
    Width = 140
    Height = 17
    DataField = 'WorkEMail'
    DataSource = DSadress
  end
  object DBText6: TDBText
    Left = 88
    Top = 240
    Width = 140
    Height = 17
    DataField = 'NickName'
    DataSource = DSadress
  end
  object Label1: TLabel
    Left = 8
    Top = 120
    Width = 61
    Height = 13
    Caption = 'Last Name'
  end
  object Label2: TLabel
    Left = 8
    Top = 144
    Width = 61
    Height = 13
    Caption = 'First Name'
  end
  object Label3: TLabel
    Left = 8
    Top = 168
    Width = 72
    Height = 13
    Caption = 'Organization'
  end
  object Label4: TLabel
    Left = 8
    Top = 192
    Width = 72
    Height = 13
    Caption = 'Home E-Mail'
  end
  object Label5: TLabel
    Left = 8
    Top = 216
    Width = 70
    Height = 13
    Caption = 'Work E-Mail'
  end
  object Label6: TLabel
    Left = 8
    Top = 240
    Width = 59
    Height = 13
    Caption = 'NickName'
  end
  object Label7: TLabel
    Left = 64
    Top = 304
    Width = 41
    Height = 13
    Caption = 'Sort by'
  end
  object AddBtn: TButton
    Left = 6
    Top = 268
    Width = 89
    Height = 20
    Caption = 'Add'
    TabOrder = 0
    OnClick = AddBtnClick
  end
  object EditBtn: TButton
    Left = 105
    Top = 268
    Width = 89
    Height = 20
    Caption = 'Edit'
    TabOrder = 1
    OnClick = EditBtnClick
  end
  object DeleteBtn: TButton
    Left = 204
    Top = 268
    Width = 89
    Height = 20
    Caption = 'Delete'
    TabOrder = 2
    OnClick = DeleteBtnClick
  end
  object SortLB: TComboBox
    Left = 126
    Top = 296
    Width = 125
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    Items.Strings = (
      'Last Name'
      'First Name'
      'Address')
    TabOrder = 3
    OnClick = SortLBClick
  end
  object DBGridadress: TDBGrid
    Left = 8
    Top = 8
    Width = 225
    Height = 105
    DataSource = DSadress
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
  end
  object RGazbuki: TRadioGroup
    Left = 240
    Top = 2
    Width = 81
    Height = 257
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'A'
      'B'
      'C'
      'D'
      'E'
      'F'
      'G'
      'H'
      'I'
      'J'
      'K'
      'L'
      'M'
      'N'
      'O'
      'P'
      'Q'
      'R'
      'S'
      'T'
      'U'
      'V'
      'W'
      'X'
      'Y'
      'Z')
    TabOrder = 5
    OnClick = RGazbukiClick
  end
  object DSadress: TDataSource
    DataSet = Qadress
    Left = 88
    Top = 64
  end
  object Qadress: TQuery
    DatabaseName = 'Vistamail'
    SQL.Strings = (
      'select * from adress5'
      'where LN =:a0')
    Params.Data = {010001000261300001020041000001}
    Left = 120
    Top = 64
    object QadressPosA: TIntegerField
      FieldName = 'PosA'
      Visible = False
    end
    object QadressLastName: TStringField
      DisplayLabel = 'Last Name'
      FieldName = 'LastName'
      Size = 40
    end
    object QadressFirstName: TStringField
      DisplayLabel = 'First Name'
      FieldName = 'FirstName'
      Visible = False
      Size = 40
    end
    object QadressOrganization: TStringField
      FieldName = 'Organization'
      Visible = False
      Size = 50
    end
    object QadressHomeEMail: TStringField
      FieldName = 'HomeEMail'
      Visible = False
      Size = 50
    end
    object QadressWorkEMail: TStringField
      FieldName = 'WorkEMail'
      Visible = False
      Size = 50
    end
    object QadressNickName: TStringField
      FieldName = 'NickName'
      Visible = False
    end
    object QadressLN: TStringField
      FieldName = 'LN'
      Visible = False
      Size = 1
    end
    object QadressFN: TStringField
      FieldName = 'FN'
      Visible = False
      Size = 1
    end
    object QadressOrgan: TStringField
      FieldName = 'Organ'
      Visible = False
      Size = 1
    end
  end
  object QadressUp: TQuery
    DatabaseName = 'Vistamail'
    DataSource = DSadress
    SQL.Strings = (
      'select * from adress5'
      'where LN =:a0')
    Params.Data = {010001000261300001020041000001}
    Left = 160
    Top = 64
    object IntegerField1: TIntegerField
      FieldName = 'PosA'
      Visible = False
    end
    object StringField1: TStringField
      FieldName = 'LastName'
      Size = 40
    end
    object StringField2: TStringField
      FieldName = 'FirstName'
      Visible = False
      Size = 40
    end
    object StringField3: TStringField
      FieldName = 'Organization'
      Visible = False
      Size = 50
    end
    object StringField4: TStringField
      FieldName = 'HomeEMail'
      Visible = False
      Size = 50
    end
    object StringField5: TStringField
      FieldName = 'WorkEMail'
      Visible = False
      Size = 50
    end
    object StringField6: TStringField
      FieldName = 'NickName'
      Visible = False
    end
    object StringField7: TStringField
      FieldName = 'LN'
      Visible = False
      Size = 1
    end
    object StringField8: TStringField
      FieldName = 'FN'
      Visible = False
      Size = 1
    end
    object StringField9: TStringField
      FieldName = 'Organ'
      Visible = False
      Size = 1
    end
  end
  object Tadress: TTable
    DatabaseName = 'Vistamail'
    IndexFieldNames = 'PosA'
    TableName = 'ADRESS5.DB'
    TableType = ttParadox
    Left = 56
    Top = 64
  end
end